5 IFPEEK(767)=2THENPOKE767,0:RUN270
10 POKE53281,12:POKE53280,14:PRINTCHR$(147):POKE767,2
20 PRINT"MAKE CHANGES THEN  RUN AGAIN":FORI=1TO1500:NEXT
30 LIST 50-255
40 :
50 REM USE ( +CHR$(34) )TO ADD A QUOTE
60 REM KEYS F1,F3,F5,F7
70 KEY$(1)="SAVE"+CHR$(34)+"0:"
80 KEY$(2)="@$0_"
90 KEY$(3)="FIND/"
100 KEY$(4)="LIST"
110 REM  SHIFT WITH KEYS F1,F3,F5,F7
120 KEY$(5)="CHANGE@"
130 KEY$(6)="MON_"
140 KEY$(7)="DRX_"
150 KEY$(8)="HCOPY_"
160 REM  LOGO WITH KEYS F1,F3,F5,F7
170 KEY$(9)="OPEN1,4,1_"
180 KEY$(10)="OPEN1,4_"
190 KEY$(11)="CMD1:LIST"
200 KEY$(12)="P[210]1:CL[207]1_"
210 REM  CTRL WITH KEYS F1,F3,F5,F7
220 KEY$(13)="COLOR12,12,11_"
230 KEY$(14)="P[210]1,C[200](29)"
240 KEY$(15)="P[210]1,C[200](27)C[200](27)C[200](56)
250 KEY$(16)[178]"P(null)1,CLEFT$(27)"[170][199](34)[170]"F"[170][199](34)[170]"CLEFT$(66)"
260 [142]
270 [134] KEY$(16):[141]70:A[178].:B[178].:C[178].:[153]"LOADCALCULATING COMMAND LENGTHS
280 FORI=1TO8:A=LEN(KEY$(I)):IFA>10THENPRINT"KEY$("I" ) IS LONGER THAN 10":STOP
290 IFRIGHT$(KEY$(I),1)<>"_"THENC=C+1
300 B=B+A:NEXT
310 FORI=9TO16:A=LEN(KEY$(I))
320 IFA>40THENPRINT"KEY$("I" ) IS LONGER THAN 40":STOP
330 IFRIGHT$(KEY$(I),1)<>"_"THENC=C+1
340 C=C+A:NEXT:IFC+B<255THEN360
350 PRINT"TOTAL CHARACTERS CANNOT EXCEED 254":PRINT"YOU'RE"B+C-254" OVER
360 [153]"OK!":[153]"STORING DATA...":[153]"KEY#:
370 V=50792:D=50809:X=.:FORA=1TO16:POKEV+A,X:PRINTA
380 FORI=1TOLEN(KEY$(A)):POKED,ASC(MID$(KEY$(A),I,1))
390 D=D+1:X=X+1:NEXT
400 IFA<9THENIFPEEK(D-1)=95THENPOKED-1,13
405 IFA>9THENIFPEEK(D-1)=95THENNEXT
410 POKED,.:D=D+1:X=X+1
420 NEXT
430 S=50430:E=S+636:REM START AND END ADDRESS
450 INPUT"SAVE NEW COPY OF KEYS";Y$
455 IFY$<>"Y"THEN END
460 PRINT"INSERT DISK WITH 3 BLOCKS OR MORE INTO  DRIVE 8
465 [133]"FILENAME";F$:F$[178]"0:"[170]F$
470 F1$[178]F$:SP[178][194](53)[170]256[172][194](54)[171][195](F1$)
480 [151]782,SP[173]256:[151]781,SP[171][194](782)[172]256:[151]780,[195](F1$):[158]65469
490 [151]780,2:[151]781,8:[151]782,2:[158]65466
500 [151]253,S[173]256:[151]252,S[171][194](253)[172]256:[151]780,252
510 [151]782,E[173]256:[151]781,E[171][194](782)[172]256:[158]65496
520 [159]1,8,15:[132]1,EN,EM$,T$,S$:[153]EN;EM$,T$,S$:[158]65511:[139]EN[167]430
530 [153]"DONE!"